home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1017_UserItem < prev    next >
Encoding:
Text File  |  1992-04-08  |  324 b   |  17 lines
  1. %case itemNr%
  2.     %DefineItem%
  3. %case dialog field%
  4.     %fieldname%:%        %Handle;
  5.     %haveField%
  6. %case init field%
  7.     %fieldname% := nil;
  8. %case auxiliary%
  9.     {----------}
  10.     Procedure Draw%Itemname%%    %(whichDialog:    DialogPtr;
  11.                                  itemNr:        integer);
  12.     Begin
  13.     End; {Draw%Itemname%}
  14.     
  15. %case set%
  16.     SetUserItem (%Itemname%, @Draw%Itemname%);
  17.